home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autoba2a / main.frm < prev    next >
Text File  |  1999-09-24  |  57KB  |  1,865 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
  4. Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
  5. Begin VB.Form Form1 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Auto Backup"
  8.    ClientHeight    =   5400
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   5940
  12.    Icon            =   "Main.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   5400
  18.    ScaleWidth      =   5940
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.Timer Timer1 
  21.       Interval        =   59000
  22.       Left            =   0
  23.       Top             =   4920
  24.    End
  25.    Begin VB.CommandButton Command3 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "Minimize and save changes (ESC)"
  28.       Height          =   495
  29.       Left            =   960
  30.       TabIndex        =   0
  31.       Top             =   4800
  32.       Width           =   1695
  33.    End
  34.    Begin VB.CommandButton Command2 
  35.       Caption         =   "Quit"
  36.       Height          =   495
  37.       Left            =   3360
  38.       TabIndex        =   1
  39.       Top             =   4800
  40.       Width           =   1695
  41.    End
  42.    Begin TabDlg.SSTab SSTab1 
  43.       Height          =   4575
  44.       Left            =   120
  45.       TabIndex        =   2
  46.       Top             =   120
  47.       Width           =   5700
  48.       _ExtentX        =   10054
  49.       _ExtentY        =   8070
  50.       _Version        =   393216
  51.       Style           =   1
  52.       Tabs            =   5
  53.       TabsPerRow      =   5
  54.       TabHeight       =   520
  55.       ShowFocusRect   =   0   'False
  56.       TabCaption(0)   =   "Hour/Day"
  57.       TabPicture(0)   =   "Main.frx":0E42
  58.       Tab(0).ControlEnabled=   -1  'True
  59.       Tab(0).Control(0)=   "CheckBox4"
  60.       Tab(0).Control(0).Enabled=   0   'False
  61.       Tab(0).Control(1)=   "CheckBox1"
  62.       Tab(0).Control(1).Enabled=   0   'False
  63.       Tab(0).Control(2)=   "Label9"
  64.       Tab(0).Control(2).Enabled=   0   'False
  65.       Tab(0).Control(3)=   "Label4"
  66.       Tab(0).Control(3).Enabled=   0   'False
  67.       Tab(0).Control(4)=   "OptionButton2"
  68.       Tab(0).Control(4).Enabled=   0   'False
  69.       Tab(0).Control(5)=   "Label5"
  70.       Tab(0).Control(5).Enabled=   0   'False
  71.       Tab(0).Control(6)=   "Label6"
  72.       Tab(0).Control(6).Enabled=   0   'False
  73.       Tab(0).Control(7)=   "CheckBox2(1)"
  74.       Tab(0).Control(7).Enabled=   0   'False
  75.       Tab(0).Control(8)=   "CheckBox2(7)"
  76.       Tab(0).Control(8).Enabled=   0   'False
  77.       Tab(0).Control(9)=   "CheckBox2(6)"
  78.       Tab(0).Control(9).Enabled=   0   'False
  79.       Tab(0).Control(10)=   "CheckBox2(5)"
  80.       Tab(0).Control(10).Enabled=   0   'False
  81.       Tab(0).Control(11)=   "CheckBox2(4)"
  82.       Tab(0).Control(11).Enabled=   0   'False
  83.       Tab(0).Control(12)=   "CheckBox2(3)"
  84.       Tab(0).Control(12).Enabled=   0   'False
  85.       Tab(0).Control(13)=   "CheckBox2(2)"
  86.       Tab(0).Control(13).Enabled=   0   'False
  87.       Tab(0).Control(14)=   "OptionButton3"
  88.       Tab(0).Control(14).Enabled=   0   'False
  89.       Tab(0).Control(15)=   "Label8"
  90.       Tab(0).Control(15).Enabled=   0   'False
  91.       Tab(0).Control(16)=   "OptionButton1"
  92.       Tab(0).Control(16).Enabled=   0   'False
  93.       Tab(0).Control(17)=   "Label7"
  94.       Tab(0).Control(17).Enabled=   0   'False
  95.       Tab(0).Control(18)=   "Label3"
  96.       Tab(0).Control(18).Enabled=   0   'False
  97.       Tab(0).Control(19)=   "MaskEdBox2"
  98.       Tab(0).Control(19).Enabled=   0   'False
  99.       Tab(0).Control(20)=   "MaskEdBox1"
  100.       Tab(0).Control(20).Enabled=   0   'False
  101.       Tab(0).Control(21)=   "Command6"
  102.       Tab(0).Control(21).Enabled=   0   'False
  103.       Tab(0).ControlCount=   22
  104.       TabCaption(1)   =   "Files/Directories"
  105.       TabPicture(1)   =   "Main.frx":0E5E
  106.       Tab(1).ControlEnabled=   0   'False
  107.       Tab(1).Control(0)=   "File1"
  108.       Tab(1).Control(1)=   "Command4"
  109.       Tab(1).Control(2)=   "List1"
  110.       Tab(1).Control(3)=   "Command1"
  111.       Tab(1).Control(4)=   "Dir1"
  112.       Tab(1).Control(5)=   "Drive1"
  113.       Tab(1).Control(6)=   "Command5"
  114.       Tab(1).Control(7)=   "Label1"
  115.       Tab(1).Control(8)=   "CheckBox3"
  116.       Tab(1).ControlCount=   9
  117.       TabCaption(2)   =   "Destiny"
  118.       TabPicture(2)   =   "Main.frx":0E7A
  119.       Tab(2).ControlEnabled=   0   'False
  120.       Tab(2).Control(0)=   "Drive2"
  121.       Tab(2).Control(1)=   "Dir2"
  122.       Tab(2).Control(2)=   "Text1"
  123.       Tab(2).Control(3)=   "Label2"
  124.       Tab(2).ControlCount=   4
  125.       TabCaption(3)   =   "Progress"
  126.       TabPicture(3)   =   "Main.frx":0E96
  127.       Tab(3).ControlEnabled=   0   'False
  128.       Tab(3).Control(0)=   "Command7"
  129.       Tab(3).Control(1)=   "Label14"
  130.       Tab(3).Control(2)=   "Label13"
  131.       Tab(3).Control(3)=   "Label12"
  132.       Tab(3).Control(4)=   "Label11"
  133.       Tab(3).Control(5)=   "Label10"
  134.       Tab(3).ControlCount=   6
  135.       TabCaption(4)   =   "About"
  136.       TabPicture(4)   =   "Main.frx":0EB2
  137.       Tab(4).ControlEnabled=   0   'False
  138.       Tab(4).Control(0)=   "Label16"
  139.       Tab(4).Control(1)=   "Label15"
  140.       Tab(4).ControlCount=   2
  141.       Begin VB.CommandButton Command7 
  142.          Caption         =   "See log file..."
  143.          Height          =   495
  144.          Left            =   -73800
  145.          TabIndex        =   43
  146.          Top             =   3720
  147.          Width           =   3255
  148.       End
  149.       Begin VB.FileListBox File1 
  150.          Height          =   1650
  151.          Left            =   -72000
  152.          MultiSelect     =   2  'Extended
  153.          TabIndex        =   15
  154.          Top             =   2040
  155.          Width           =   2535
  156.       End
  157.       Begin VB.CommandButton Command4 
  158.          Caption         =   "+ Directory"
  159.          Height          =   375
  160.          Left            =   -73440
  161.          TabIndex        =   14
  162.          Top             =   3885
  163.          Width           =   1215
  164.       End
  165.       Begin VB.ListBox List1 
  166.          Height          =   1230
  167.          ItemData        =   "Main.frx":0ECE
  168.          Left            =   -74880
  169.          List            =   "Main.frx":0ED0
  170.          MultiSelect     =   2  'Extended
  171.          Sorted          =   -1  'True
  172.          TabIndex        =   13
  173.          Top             =   720
  174.          Width           =   5415
  175.       End
  176.       Begin VB.CommandButton Command1 
  177.          Caption         =   "Exclude"
  178.          Height          =   375
  179.          Left            =   -70800
  180.          TabIndex        =   12
  181.          Top             =   3885
  182.          Width           =   1215
  183.       End
  184.       Begin VB.DirListBox Dir1 
  185.          Height          =   1215
  186.          Left            =   -74880
  187.          TabIndex        =   11
  188.          Top             =   2460
  189.          Width           =   2775
  190.       End
  191.       Begin VB.DriveListBox Drive1 
  192.          Height          =   315
  193.          Left            =   -74880
  194.          TabIndex        =   10
  195.          Top             =   2040
  196.          Width           =   2775
  197.       End
  198.       Begin VB.CommandButton Command5 
  199.          Caption         =   "+ File(s)"
  200.          Height          =   375
  201.          Left            =   -72120
  202.          TabIndex        =   9
  203.          Top             =   3885
  204.          Width           =   1215
  205.       End
  206.       Begin VB.CommandButton Command6 
  207.          Caption         =   "Do backup now!"
  208.          Height          =   495
  209.          Left            =   3720
  210.          TabIndex        =   8
  211.          Top             =   3780
  212.          Width           =   1695
  213.       End
  214.       Begin VB.DriveListBox Drive2 
  215.          Height          =   315
  216.          Left            =   -73680
  217.          TabIndex        =   5
  218.          Top             =   1200
  219.          Width           =   2895
  220.       End
  221.       Begin VB.DirListBox Dir2 
  222.          Height          =   2565
  223.          Left            =   -73680
  224.          TabIndex        =   4
  225.          Top             =   1680
  226.          Width